home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / demos / commercial / mand2000demo.lha / Mand2000Demo / ARexx / LoadPanels.adpro < prev    next >
Encoding:
Text File  |  1994-03-04  |  2.2 KB  |  72 lines
  1. /* Panel loader. */
  2.  
  3. /*
  4.     This script is a companion to Mand2000's DoPanels.mnd2 script.
  5. DoPanels.mnd2  (accessible  through Mand2000's user menu as `Calculate
  6. Panels')  takes  a  particular  fractal image and recalculates it as a
  7. number  of  separate panels.  Each panel is the same pixel size as the
  8. original, but covers a small portion of the fractal coordinates of the
  9. original.
  10.  
  11.     These  separate  panels  can then be pasted together by ADPro.
  12. This  allows  you  to calculate images larger than can be displayed in
  13. Chip  RAM.   I  have  used this to calculate images that are 4000x3200
  14. pixels - I then load these into ADPro, using the fractal loader, and I
  15. get beatiful 24 bit colour.
  16.  
  17.     This  script asks you for the upper left image and the size of
  18. the  grid.  This needn't match what you created.  For instance, if you
  19. created  a  four  by  four  grid of pictures, you can load in the four
  20. corners,  each four by four, as separate operations.  This is handy if
  21. you  are  printing  a multi-page poster and don't have the RAM to hold
  22. all pages at once.
  23.  
  24.     This   script  assumes  that  the  pictures  were  saved  with
  25. iteration  data,  rather  than  graphics  data.  To change this to use
  26. graphics  data,  the  IFF  loader would have to be used instead of the
  27. Fractal2000 loader.
  28.     */
  29.  
  30. address 'ADPro'
  31.  
  32. options results
  33.  
  34. getfile '"Select panel for upper left"'
  35. BaseName = adpro_result
  36. if (BaseName = "") THEN
  37.     exit
  38.  
  39. XCoord = LEFT(RIGHT(BaseName, 3), 1)
  40. YCoord = RIGHT(BaseName, 1)
  41. Basename = LEFT(BaseName, Length(BaseName) - 4)
  42.  
  43. /* Load the specified file, to see how big it is. */
  44. lformat Fractal2000
  45. load BaseName || "." || XCoord || "." || YCoord
  46. if (RC = 10) THEN DO
  47.     OKAY1 '"Error loading ' || BaseName || "." || XCoord || "." || YCoord || '"'
  48.     exit
  49. END
  50.  
  51. /* Grab the width and height of the image. */
  52. XSIZE
  53. BaseWidth = adpro_result
  54. YSIZE
  55. BaseHeight = adpro_result
  56.  
  57. OKAYN '"Mand2000 panels"' '"How big a grid of panels\nwould you like to load?"' '"2x2|3x3|4x4|5x5|Cancel"'
  58. if (rc = 0) THEN
  59.     exit
  60. NumRows = rc + 1
  61.  
  62. lformat backdrop
  63. load DontCare basewidth * numrows baseheight * numrows color
  64.  
  65. lformat FRACTAL2000
  66.  
  67. DO X = 0 to NumRows - 1
  68.     DO Y = 0 to NumRows - 1
  69.         load BaseName || "." || X + XCoord || "." || Y + YCoord    X * basewidth y * baseheight 100
  70.     END
  71. END
  72.